home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / big time.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  131 lines
  1. 100 PRINTCHR$(142):POKE53280,2:POKE53281,2
  2. 110 REM BIG TIME 2.0 NON-STOP
  3. 120 REM ORIGINALLY BY SCOTT MAUCUS
  4. 130 REM MODIFIED BY J. COURBOIS
  5. 140 DIMA$(9)
  6. 150 FORI=0TO9
  7. 160 REM SET UP A DIGIT
  8. 170 FORJ=1TO5
  9. 180 READA$
  10. 190 REM   MOVE CURSOR DOWN & 3 LEFT
  11. 200 A$(I)=A$(I)+A$+"[157][157][157]"
  12. 210 NEXTJ
  13. 220 READA$
  14. 230 REM   MOVE CURSOR RIGHT & 5 UP
  15. 240 A$(I)=A$(I)+A$+"[145][145][145][145][145]"
  16. 250 NEXTI
  17. 260 REM ASK FOR TIME
  18. 270 PRINT"[147]                  MINUTES"
  19. 280 PRINT"            HOURS[192][192][174] [221] [176][192][192]SECONDS"
  20. 290 PRINT"                   [221] [221] [221]"
  21. 300 PRINT"PLEASE INPUT TIME  HHMMSS[144]":PRINTSPC(17);
  22. 310 INPUTA$:A$=LEFT$(A$+"000000",6)
  23. 320 REM SET TIME HERE
  24. 330 TI$=A$
  25. 340 REM DRAW "TIME" WORD
  26. 350 PRINT"":GOSUB1270
  27. 360 REM DRAW BORDER BOX
  28. 370 GOSUB1100
  29. 380 REM MAIN LOOP
  30. 390 REM   POSITION CURSOR @ 1 ST DIGIT
  31. 400 PRINT"";
  32. 410 REM   DRAW NUMERALS FOR TIME
  33. 420 FORI=1TO6
  34. 430 PRINT"[144]"A$(VAL(MID$(TI$,I,1)));
  35. 440 REM INSERT COLON TWEEN HH-MM,MM-SS
  36. 450 IFI=2ORI=4THENPRINT"[215][157][215][145][145][145][145][144]";
  37. 460 NEXTI
  38. 470 IFRIGHT$(TI$,2)<>"00"THEN400
  39. 471 IFRIGHT$(TI$,4)="0000"THENLL=32:SS=12:GOTO475
  40. 472 LL=128:SS=5
  41. 475 POKE53280,0:POKE53281,0:FORK=1TO500:NEXT:POKE53280,2:POKE53281,2
  42. 478 S=54272:FORK=STOS+24:POKEK,0:NEXT:POKES+24,15:POKES+1,30:POKES+5,0
  43. 479 POKES+6,15*16+SS:POKES+4,LL+1:POKES+4,LL:FORKK=1TO500:NEXT:GOTO400
  44. 480 REM DIGITS DATA STRINGS
  45. 490 DATA"[206][183][205]"
  46. 500 DATA"[165] [167]"
  47. 510 DATA"[165] [167]"
  48. 520 DATA"[165] [167]"
  49. 530 DATA"[165] [167]"
  50. 540 DATA"[205][175][206]"
  51. 550 DATA" [206][165]"
  52. 560 DATA"  [165]"
  53. 570 DATA"  [165]"
  54. 580 DATA"  [165]"
  55. 590 DATA"  [165]"
  56. 600 DATA" [175][204]"
  57. 610 DATA"[206][183][205]"
  58. 620 DATA"  [167]"
  59. 630 DATA" [175][206]"
  60. 640 DATA"[206]  "
  61. 650 DATA"[165]  "
  62. 660 DATA"[204][175][175]"
  63. 670 DATA"[206][183][205]"
  64. 680 DATA"  [167]"
  65. 690 DATA" [175][206]"
  66. 700 DATA"  [205]"
  67. 710 DATA"  [167]"
  68. 720 DATA"[205][175][206]"
  69. 730 DATA"[165] [165]"
  70. 740 DATA"[165] [165]"
  71. 750 DATA"[165] [165]"
  72. 760 DATA"[183][183][207]"
  73. 770 DATA"  [165]"
  74. 780 DATA"  [165]"
  75. 790 DATA"[207][183][183]"
  76. 800 DATA"[204][175] "
  77. 810 DATA"  [205]"
  78. 820 DATA"  [167]"
  79. 830 DATA"  [167]"
  80. 840 DATA"[205][175][206]"
  81. 850 DATA"[206][183][205]"
  82. 860 DATA"[165]  "
  83. 870 DATA"[204][175] "
  84. 880 DATA"[165] [205]"
  85. 890 DATA"[165] [167]"
  86. 900 DATA"[205][175][206]"
  87. 910 DATA"[207][183][208]"
  88. 920 DATA"  [206]"
  89. 930 DATA" [206] "
  90. 940 DATA" [165] "
  91. 950 DATA" [165] "
  92. 960 DATA" [165] "
  93. 970 DATA"[206][183][205]"
  94. 980 DATA"[165] [167]"
  95. 990 DATA"[205][175][206]"
  96. 1000 DATA"[206][183][205]"
  97. 1010 DATA"[165] [167]"
  98. 1020 DATA"[205][175][206]"
  99. 1030 DATA"[206][183][205]"
  100. 1040 DATA"[165] [167]"
  101. 1050 DATA"[205][175][186]"
  102. 1060 DATA"  [167]"
  103. 1070 DATA"  [167]"
  104. 1080 DATA"[205][175][206]"
  105. 1090 REM WRITE BORDER FOR DIGITS
  106. 1100 PRINT" ";
  107. 1110 FORI=1TO37:PRINT"[175]";:NEXT:PRINT
  108. 1120 PRINT"[167][205]"SPC(35)"[206][165]"
  109. 1130 FORI=1TO2
  110. 1140 PRINT"[167]"SPC(I)"[205]"SPC(35-2*I)"[206]"SPC(I)"[165]"
  111. 1150 NEXT
  112. 1160 PRINT"[167]   [207]";:FORI=1TO29:PRINT"[183]";:NEXT:PRINT"[208]   [165]"
  113. 1170 FORI=1TO8
  114. 1180 PRINT"[167]   [165]"SPC(29)"[167]   [165]"
  115. 1190 NEXT
  116. 1200 PRINT"[167]   [204]";:FORI=1TO29:PRINT"[175]";:NEXT:PRINT"[186]   [165]"
  117. 1210 FORI=2TO1STEP-1
  118. 1220 PRINT"[167]"SPC(I)"[206]"SPC(35-2*I)"[205]"SPC(I)"[165]"
  119. 1230 NEXT
  120. 1240 PRINT"[167][206]"SPC(35)"[205][165]"
  121. 1250 PRINT" ";:FORI=1TO37:PRINT"[183]";:NEXT:PRINT
  122. 1260 RETURN
  123. 1270 REM TIME HEADER
  124. 1280 PRINT"[147]";
  125. 1290 W=10
  126. 1300 PRINTSPC(W)"[144][183][183][207][183] [183][207] [167][205]  [206][165] [207][183][183]
  127. 1310 [153][166]W)"  FN   FN THEN (null)(null) FN (null)AND
  128. 1320 PRINTSPC(W)"  [165]   [165] [167]    [165] [165]
  129. 1330 [153][166]W)"  FN  AND(null) THEN    FN (null)ANDAND
  130. 1340 RETURN
  131.